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-- BcdTreeBuild.Mesa Edited by Wick on February 15, 1978 12:29 PM 

DIRECTORY 

BcdControlDefs: FROM "bcdcontroldef s", 
BcdLALRDefs: FROM "bcdlalrdef s" , 
BcdTabDefs: FROM "bcdtabdef s" , 
BcdTreeDefs: FROM "bcdtreedef s"; 

DEFINITIONS FROM BcdTreeDefs; 

BcdTreeBuild: PROGRAM 

IMPORTS BcdLALRDefs, BcdTreeDefs 
EXPORTS BcdControlDefs, BcdLALRDefs 
SHARES BcdLALRDefs - 
BEGIN 

-- local data base (supplied by parser) 

v: DESCRIPTOR FOR ARRAY OF UNSPECIFIED; 

1: DESCRIPTOR FOR ARRAY OF CARDINAL; 

q: DESCRIPTOR FOR ARRAY OF BcdLALRDefs .ActionEntry ; 

proddata: DESCRIPTOR FOR ARRAY OF BcdLALRDefs . Productionlnfo; 

AssignDescriptors: PUBLIC PROCEDURE [ 

qd: DESCRIPTOR FOR ARRAY OF BcdLALRDefs .ActionEntry , 

vd: DESCRIPTOR FOR ARRAY OF UNSPECIFIED, 

Id: DESCRIPTOR FOR ARRAY OF CARDINAL, 

pd: DESCRIPTOR FOR ARRAY OF BcdLALRDefs .Productionlnfo] ■ 

BEGIN q <- qd; v <- vd; 

1 «- Id; proddata <- pd; 

RETURN 

END; 



-- the interpretation rules 

LinkToSource: PROCEDURE [index: CARDINAL] 
BEGIN 

setsourceindex[l[index]]; RETURN 
END; 



links: BOOLEAN; 

codelinks: BOOLEAN - TRUE; 
framelinks: BOOLEAN - FALSE; 

StrangeRule: PUBLIC SIGNAL [CARDINAL] - CODE; 

ProcessQueue: PUBLIC PROCEDURE [qptr, top: CARDINAL] 
BEGIN 

i: CARDINAL; 
save: TreeLink; 
newv: UNSPECIFIED; 
FOR i IN [0..qptr) DO 

top *- top-q[i].rtag.plength+l; newv ♦■ v[top]; 
SELECT proddata[q[i]. transition]. rule FROM 
■> 



_- * * * 
-- description 
-- statementlist 
-- statement 
-- statement 
-- leftside 
-- expression 

— primary 
NULL; 

«> 

— item 
pushhash[v[top]]; 

-> 

-- imports 
-- exports 
-- control 

— directory 
-- packing 
BEGIN 
mlpush[empty]; newv «- 1; 



description EOF 
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id 



FROM str 



1[top] <- BcdLALRDefs.InputLoc[]; 
END; 

5 ■> 

-- includeltem : 

BEGIN 

pushhash[v[top]]; 

pushhash[v[top+3]]; 

pushtree[item,2]; 

LinkToSource[topj; 

END; 

6 -> 
-- includelist 
-- statementlist 
-- itemlist 
newv «- 1; 

7 ■> 
-- includelist 
-- statementlist 
-- itemlist 
newv «- v[top]+l; 

> 



includeitem 

statement 

item 



includelist , 
statement! ist 



includeitem 
; statement 



•» itemlist , item 



8 



-- packing 

BEGIN 

pushlist[v[top]]; 

LinkToSource[top]; 

END; 

9 »> 
-- directory 
-- imports 
-- exports 
-- body 
-- leftside 
BEGIN 

pushl ist[v[top+l]]; 
LinkToSource[top]; 
END; 

10 »> 
-- source : 
BEGIN 

pushtree[source,3]; 
LinkToSource[top]; 
END; 

11 ■> 
-- config : 
BEGIN 

save «- mlpop[]; pushhash[v[top]]; 
ml push [save]; push tree [config, 5]; 
LinkToSource[top]; 

links <- v[top+3]; 
END; 

12 «> 

-- control : 
pushhash[v[top+l]]; 

13 «> 
-- packlist : 
BEGIN 

pushl ist[v[top+l]]; 
LinkToSource[top]; 
END; 

14 »> 
-- packlist : : 
BEGIN 

pushlist[v[top+3]]; 
LinkToSource[top+2]; 
END; 

15 -> 
-- init :: 
links «- framelinks; 

16 -> 
-- 1 inks : : 
newv <- links; 

17 -> 
-- links 
BEGIN 

newv ♦- links; 
END; 



packlist ; 



« DIRECTORY includelist 

= IMPORTS itemlist 

« EXPORTS itemlist 

= BEGIN statementlist END 

■ [ itemlist ] 



directory packing init config 



id : CONFIGURATION links imports exports control a body 



:* CONTROL id 

:- PACK idlist 
newv ♦• 1; 

:= packlist ; PACK idlist 
newv 4- v[top]+l; 



:■ LINKS : CODE 



links «- codelinks; 
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18 -> 

— links ::- LINKS : FRAME 
BEGIN 

newv <- links; links *• framelinks; 
END; 

20 -> 

-- statement ::■ leftside <- expression 

BEGIN 

pushtree[assign,2]; 

LinkToSource[top]; 

END; 

21 ■> 

-- expression ::■ expression THEN rightside 

BEGIN 

pushtree[then,2]; 

LinkToSource[topj; 

END; 

22 «> 

-- primary ::■ primary PLUS rightside 

BEGIN 

pushtree[plus,2]; 

LinkToSource[top]; 

END; 

24 «> 

-- rightside ::- item links 

BEGIN 

setattribute[l inks , links]; 

links <- v[top+l]; 

END; 

25 => 

-- rightside ::■ item [ ] links 

BEGIN 

setattribute[links, links]; 

mlpush[empty]; 

pushtree[module t 2]; 

setattribute[links, links]; 

LinkToSource[top]; 

links <- v[top+3]; 

END; 

26 «> 

-- rightside ::■ item [ idlist ] links 

BEGIN 

pushlist[v[top+2]]; 

save «- mlpop[]; 

setattribute[l inks , links]; 

mlpush[save]; 

pushtree[module,2]; 

setattribute[l inks , links]; 

LinkToSource[top]; 

links «- v[top+4]; 

END; 

28 »> 

— item ::«» id 
BEGIN 

pushhash[v[top]]; 
mlpush[empty]; 
pushtree[item,2]; 
LinkToSource[topj; 

END; 

29 »> 

-- item ::■ id : id 

BEGIN 

pushhash[v[top]]; 

pushhash[v[top+2]]; 

pushtree[item,2]; 

LinkToSource[topj; 

END; 

30 ■> 

-- idlist ::- id 

BEGIN 

pushhash[v[top]]; 

newv +• 1; 

END; 

31 ■> 

— idlist ::- idlist t id 
BEGIN 
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pushhash[v[top+2]]; 
newv «- v[top]+l; 
END; 
ENDCASE »> 

SIGNAL StrangeRule[proddata[q[i]. trans it ion]. rule]; 
v[top] <- newv; 
ENDLOOP; 
qptr +- 0; 
RETURN 
END; 

TokenValue: PUBLIC PROCEDURE [s: BcdLALRDefs. Symbol] RETURNS [UNSPECIFIED] 
BEGIN OPEN BcdLALRDefs; 
RETURN [SELECT s FROM 

tokenID ■> BcdTabDef s.HTNul 1 , 

ENDCASE -> 0] 
END; 

END. 



